home *** CD-ROM | disk | FTP | other *** search
/ Apple II Magazines (DO) / Softdisk Magazette Volume 2, No. 04 (1982-12)(Softdisk)(Side A).zip / Softdisk Magazette Volume 2, No. 04 (1982-12)(Softdisk)(Side A).do / HIRES MOVIE2.bas < prev    next >
BASIC Source File  |  1996-12-24  |  5KB  |  43 lines
  1. 1  LOMEM: 27000
  2. 5  POKE 770,173: POKE 771,48: POKE 772,192: POKE 773,136: POKE 774,208: POKE 775,4: POKE 776,198: POKE 777,7: POKE 778,240
  3. 10  POKE 779,8: POKE 780,202: POKE 781,208: POKE 782,246: POKE 783,166: POKE 784,6: POKE 785,76: POKE 786,2: POKE 787,3: POKE 788,96
  4. 15  DIM T%(500),L%(500),N$(500)
  5. 20 R = 770:L = 7:T = 6
  6. 25 D$ =  CHR$(13) + CHR$(4)
  7. 30  PRINT D$"OPEN THEME"
  8. 35  PRINT D$"READ THEME"
  9. 40  INPUT NL
  10. 45  FOR A = 1 TO NL: INPUT T%(A): INPUT L%(A): NEXT A
  11. 50  FOR A = 1 TO NL: INPUT N$(A): NEXT A
  12. 55  PRINT D$"CLOSE THEME"
  13. 100  HOME : HGR : PRINT  CHR$(4);"BLOAD PICDRAW":A$ = "COBRA": GOSUB 340: CALL 36400: VTAB 22: HTAB 10: PRINT "HI-RES MOVIE PART II": VTAB 24: PRINT "ALWAYS HIT A KEY TO GO ON. ";: GET Z$: HOME : TEXT : HOME : HTAB 16: PRINT "PROLOGUE"
  14. 110  PRINT : PRINT : PRINT "WHEN LAST WE LEFT OUR HERO, INDIANA     JONES WAS DRIVING TO LORD SHIGEN'S      MOUNTAIN RETREAT TO RESCUE THE DAUGHTER OF PROFESSOR AOKI WHO HAD BEEN KIDNAPPEDBY SHIGEN. BUT ALONG THE WAY A BULLET"
  15. 120  PRINT "BLEW OUT A TIRE, CAUSING HIM TO LOSE    CONTROL OF THE JEEP AND SENDING IT      CRASHING DOWN THE MOUNTAIN SIDE.  BUT   WHAT OF INDIANA JONES???";: GOSUB 1000: GET Z$: HGR :A$ = "B1": GOSUB 340: CALL 36400: HOME 
  16. 130  VTAB 21: PRINT "BEFORE THE JEEP TUMBLES DOWN TO ITS PRE-DESTINED FIERY FATE, INDIANA JONES LEAPSOUT AND WHIPS ONTO HIS WOULD BE ASSASINSHELICOPTER.";: GET Z$: HOME :A$ = "B2": GOSUB 340: CALL 36400: PRINT  CHR$(4);"BLOAD CHOP.ANM"
  17. 140  CALL 37284:X = 0
  18. 150  CALL 36928: FOR I = 1 TO 25: NEXT I: IF X > = 115  THEN 170
  19. 160 X = X +1: GOTO 150
  20. 170  PRINT  CHR$(4);"BLOAD PICDRAW": VTAB 21: PRINT "NIGHT HAS FALLEN WHEN THE HELICOPTER    FINALLY RETURNS TO THE RETREAT. AS THE  HELICOPTER PASSES OVER AN OPEN AREA,    INDIANA DROPS TO THE GROUND.";: GET Z$
  21. 180  HOME :A$ = "B3": GOSUB 340: CALL 36400: VTAB 21: PRINT "HE THEN HURRIES TO THE NEAREST DOOR. A  DOOR WHICH OPENS INTO A STRANGE LOOKING WAREHOUSE.";: GET Z$: HOME :A$ = "B4": GOSUB 340: CALL 36400
  22. 190  VTAB 21: PRINT "INDIANA'S FACE CONTORTS IN HORROR WHEN  HE REALIZES THAT THE WAREHOUSE IS FULL  OF MILLIONS OF DOLLARS WORTH OF WEAPONS.";: GET Z$
  23. 200  HOME : VTAB 21: PRINT "REALIZING THE GREAT AMOUNT OF PAIN AND  KILLING THESE WEAPONS WOULD CAUSE, HE   SHOOTS A BULLET INTO A CASE OF DYNAMITE CAUSING A TERRIBLE CHAIN REACTION.";: GET Z$: HOME :A$ = "BLOW": GOSUB 340: CALL 36405
  24. 210  VTAB 22: PRINT "BRROOOOOOMMMMM!!!!!";: GET Z$: HOME :A$ = "B5": GOSUB 340: CALL 36400
  25. 220  VTAB 21: PRINT "IN THE CONFUSION CAUSED BY THE EXPLOSIONAND SUBSEQUENT FIRES, INDIANA EASILY    GOES UNDETECTED AS HE FINDS MIKO AOKI   AND TAKES HER TO THE HELICOPTER.";: GET Z$
  26. 230  HOME : VTAB 21: PRINT "ONLY A LONE FIGURE WATCHES THEM LEAVE   WITH A HATE FILLED EYE. HE CURSES THEM  THROUGH CLENCHED TEETH KNOWING HE CANNOTSTOP THEM.";: GET Z$: HOME :A$ = "B6": GOSUB 340: CALL 36400
  27. 240  VTAB 21: PRINT "SHIGEN: INDIANA JONES! YOU HAVE ESCAPED         MY EVERY ATTEMPT TO KILL YOU;YOU        HAVE DESTROYED MY CACHE OF              WEAPONS, AND NOW YOU STEAL FROM";: GET Z$
  28. 250  HOME : VTAB 21: PRINT "SHIGEN: ME MY ONLY LEVERAGE OVER THAT           PACIFIST FOOL AOKI. BUT I PRO-          MISE YOU MR. JONES THAT WHEN            NEXT WE MEET YOU SHALL DIE!!!";: GET Z$: HOME :A$ = "B7": GOSUB 340: CALL 36400
  29. 260  VTAB 21: PRINT "AS THE HELICOPTER FLIES INDIANA AND MIKOAWAY TO SAFETY, THE CHAIN REACTION OF   EXPLOSIONS ENDS WITH ONE LAST HORRIBLE  BLAST!!!";: GET Z$: HOME :A$ = "B8": GOSUB 340: CALL 36400
  30. 270  VTAB 21: PRINT "AOKI: INDIANA, MY FRIEND, YOU HAVE SAVED      MY DAUGHTER AND RETURNED HONOR TO       MY HOUSE. IS THERE ANY WAY I CAN        REPAY YOU?";: GET Z$
  31. 280  HOME : VTAB 21: PRINT "JONES: SURE, HOW WOULD YOU LIKE TO BUY         A USED HELICOPTER CHEAP???                                               ALL:  HA! HA! HA!";: GET Z$: HOME : VTAB 22: HTAB 16: PRINT "THE END   ";: GET Z$
  32. 285  GOSUB 1000
  33. 290  TEXT : VTAB 23: PRINT : FOR I = 1 TO 32: READ Y$: PRINT Y$: FOR J = 1 TO 400: NEXT J: NEXT I: FOR K = 1 TO 10: FOR L = 1 TO 400: NEXT L: PRINT : NEXT K: PRINT  CHR$(4)"RUNKICK.IT.OFF"
  34. 300  DATA  INDIANA JONES.............HARRISON FORD, ,PROFESSOR AOKI...........TOSHIRO MIFUNE, ,LORD SHIGEN.............CHRISTOPHER LEE
  35. 310  DATA  , , ,PRODUCER..................SAMUEL CHIANG, ,DIRECTOR.................KENNETH CHIANG, ,SPECIAL EFFECTS.......GRAPHICS MAGICIAN
  36. 320  DATA   , , ,THE CHARACTERS AND EVENTS PRESENTED ARE,FICTITIOUS. ANY RESEMBLANCE TO PERSONS,LIVING OR DEAD IS PURELY COINCEDENTAL.
  37. 330  DATA     , , , , ,********* ALL RIGHTS RESERVED ********* , , , , , , ,THE END   THE END   THE END   THE END
  38. 340  POKE 36352,24576 - INT(24576/256) *256: POKE 36353, INT(24576/256): PRINT : PRINT  CHR$(4);"BLOAD ";A$;".SPC,A24576": RETURN 
  39. 1000  FOR B = 1 TO NL
  40. 1010  IF T%(B) = 0  THEN  FOR A = 1 TO L%(B) *2: NEXT A
  41. 1020  IF T%(B) >0  THEN  POKE T,T%(B): POKE L,L%(B): CALL R
  42. 1030  NEXT B
  43. 1040  RETURN